1. Read/Write Images
2. Visualization of Images
3. Inhomogeneity/Bias Field Correction
4. Skull Stripping/Brain Extraction
5. Image Registration
6. Tissue-Class Segmentation
7. Image operations

Medical Imaging Task View

• oro.nifti: read/write data, the nifti object
• fslr: process data (need FSL for most of the functionality)
• ANTsR: process data (full toolbox)
• extrantsr: makes ANTsR work with nifti objects

• dti - adaptive smoothing and diffusion tensor tools

• fmri - post-processing analysis: linear models and p-value smoothing

• AnalyzeFMRI - fMRI analysis (last updated in 2013)

Multi-modal dataset from HAMMER, (NIfTI conversion from ANALYZE).

• Data from https://www.nitrc.org/frs/?group_id=187 (testing folder in White_Matter_Lesion_Segmentation_Testdata.zip)

• 4 MRI sequences: T1-weighted, T2, PD, FLAIR

files
            t1             t2             pd          flair 
   "T1.nii.gz"    "T2.nii.gz"    "PD.nii.gz" "FLAIR.nii.gz" 

fslr: readnii uses oro.nifti::readNIfTI:

library(fslr)
base_t1 = readnii(files["t1"])

• like an array
• ANTsR uses pointers (faster), but not as intuitive

library(fslr)
fslr::ortho2(base_t1)

over_50 = mask_img(base_t1, base_t1 > 40)
fslr::ortho2(base_t1, over_50)

image(base_t1, z = 55, plot.type = "single")

over_50[over_50 <= 0] = NA; over_50 = cal_img(over_50)
overlay(base_t1, over_50, z = 55, plot.type = "single")

ANTsR/extrantsr

• bias_correct from extrantsr package calls ANTsR::n4BiasFieldCorrection
• EM-like, assumes bias is smooth over space, logs the data

library(extrantsr)
n4_t1 = bias_correct(file = base_t1, correction = "N4", retimg = TRUE)

fslr: Uses method by Sled, Zijdenbos, and Evans (1998) (slow)

bc_t1 = fsl_biascorrect(file = base_t1)
FSLDIR='/usr/local/fsl/'; export FSLDIR; sh "${FSLDIR}/etc/fslconf/fsl.sh"; FSLOUTPUTTYPE=NIFTI_GZ; export FSLOUTPUTTYPE; $FSLDIR/bin/fast    -B --nopve --out="/var/folders/1s/wrtqcpxn685_zk570bnx9_rr0000gr/T//Rtmpa4mKOM/file15e6f7f9ff9a7" "/private/var/folders/1s/wrtqcpxn685_zk570bnx9_rr0000gr/T/Rtmpa4mKOM/file15e6f60841581.nii.gz";

ratio = finite_img(n4_t1 / base_t1)
ortho2(n4_t1, ratio, col.y = alpha(hotmetal(), 0.5))

ss_t1 = fslbet(n4_t1, outfile = "SS_Image")
FSLDIR='/usr/local/fsl/'; export FSLDIR; sh "${FSLDIR}/etc/fslconf/fsl.sh"; FSLOUTPUTTYPE=NIFTI_GZ; export FSLOUTPUTTYPE; $FSLDIR/bin/bet2 "/private/var/folders/1s/wrtqcpxn685_zk570bnx9_rr0000gr/T/Rtmpa4mKOM/file15e6f2126f0db.nii.gz" "./SS_Image" 

mask = ss_t1 > 0
ortho2(base_t1, y = mask, col.y = alpha("red", 0.5))

cropped = dropEmptyImageDimensions(ss_t1)
image(cropped, z = floor(dim(cropped)[3]/2), plot.type = "single")

• rgl, misc3d (contour3d function)
• brainR - put on a webpage with some controls http://bit.ly/grid_brain

devtools::source_gist("bd40d10afabc503d71e8")

ants_reg_flair = registration(
  filename = files["flair"], 
  template.file = n4_t1, 
  typeofTransform = "Rigid")

double_ortho(n4_t1, ants_reg_flair$outfile)

multi_overlay(list(n4_t1, ants_reg_flair$outfile), z = 55)

template.file = mni_fname(mm = "1", brain = TRUE)
ss_t1_to_mni = registration(
  filename = ss_t1, 
  template.file = template.file, 
  typeofTransform = "SyN", remove.warp = FALSE,
  outprefix = "temp")

double_ortho(template.file, ss_t1_to_mni$outfile)

reg_flair_to_mni = ants_apply_transforms(
  fixed = template.file, 
  moving = ants_reg_flair$outfile, # registered FLAIR
  interpolator = "Linear",
  transformlist = ss_t1_to_mni$fwdtransforms )

double_ortho(template.file, reg_flair_to_mni)

extrantsr::preprocess_mri_within will do inhomogeneity correction, skull strip (or mask), and register to the first scan.

proc_images = preprocess_mri_within(
  files = files[c("t1", "t2", "pd", "flair")], 
  maskfile = ss_t1 > 0)

preprocess_mri_across combines preprocess_mri_within and registration. If you had baseline/follow-up data:

outfiles = gsub("[.]nii", '_process.nii', files)
preprocess_mri_across(
  baseline_files = files[c("base_t1", "base_t2", "base_pd", "base_flair")],
  followup_files = files[c("f_t1", "f_t2", "f_pd", "f_flair")],
  baseline_outfiles = outfiles[c("base_t1", "base_t2", "base_pd", "base_flair")],
  followup_outfiles = outfiles[c("f_t1", "f_t2", "f_pd", "f_flair")],
  maskfile = "Brain_Mask.nii.gz")

double_ortho(ss_t1, tissue_seg$segmentation)

• fsl_slicetimer - slice timing correction
• ANTsR::preprocessfMRI
• spm12r package calls out MATLAB using SPM

• WhiteStripe
• Whole brain z-scoring
• Histogram matching
• General standardization methods

• Methods are being developed for neuroimaging analysis in R
• These are not standardized nor centralized
• We need something like BioConductor
  • standard data structures
  • standard data sets
  • NITRC isn't exactly what we want

reg_flair_to_mni_1interp = ants_apply_transforms(
  fixed = template.file, 
  moving = files["flair"], # Raw FLAIR
  transformlist = c(ants_reg_flair$fwdtransforms,
                    ss_t1_to_mni$fwdtransforms),
  interpolator = "Linear")

tfile = "FLAIR2.nii.gz"
reg_flair_to_mni_1interp_1step = registration(
  filename = ss_t1, 
  template.file = template.file, 
  typeofTransform = "SyN", 
  other.files = files['flair'],
  other.outfiles = tfile,
  other.init = ants_reg_flair$fwdtransforms)

rat2 = abs((reg_flair_to_mni_1interp - reg_flair_to_mni) / (reg_flair_to_mni_1interp +  reg_flair_to_mni)) 
rat2 = finite_img(rat2)
ortho2(template.file, rat2, col.y = alpha(hotmetal(), 0.5))

double_ortho(reg_flair_to_mni_1interp, reg_flair_to_mni)